home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr52 / rptcl501.zip / DEMO.PRG < prev    next >
Text File  |  1993-04-05  |  2KB  |  43 lines
  1. ***************************************************************************
  2. *       DEMO PROGRAM FOR LINKABLE REPORT WRITER - CLIPPER 5.01            *
  3. ***************************************************************************
  4. *---------
  5. SET COLOR TO W/N
  6. CLEAR
  7. EXTERNAL _d_rpt
  8.  
  9. *** YOUR OTHER PROGRAM CODE
  10.  
  11. ***************************************************************************
  12. *          CALL THE REPORT WRITER PASSING IT YOUR OWN TITLE               *
  13. ***************************************************************************
  14. *                                                                         *
  15. *       PARM 1  COLOR #1 = BASE COLOR FOR APPLICATION                     *
  16. *       PARM 2  COLOR #2 = BACKGROUND CONTRAST WINDOWS                    *
  17. *       PARM 3  COLOR #3 = COLOR OF THE TITLE YOU PASS                    *
  18. *       PARM 4  COLOR #4 = LASER SETUP MENU COLORS                        *
  19. *       PARM 5  COLOR #5 = PRINTER ERROR BLINK MESSAGE COLOR              *
  20. *       PARM 6  TEST INDEXES .T./.F. (TURN TESTING ON/OFF)                *
  21. *       PARM 7  ALLOW/RESTRICT USER CREATION OF NEW INDEXES               *
  22. *       PARM 8  ALLOW/RESTRICT USER SAVING OF QUERY DEFINITIONS           *
  23. *                                                                         *
  24. ***************************************************************************
  25.  
  26.  DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "N/W,+W/B","N/W","+GR/N", ;
  27.                       "N/W,B/W","+GR*/W",.T.,.T.,.T.
  28. *DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "N/W,+W/RB","N/W","+GR/N", ;
  29. *                     "N/W,RB/W","+GR*/W",.F.,.F.,.F.
  30. *DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "+W/B,B/W","B/W","+W/N", ;
  31. *                     "+W/B,+GR/B","+R*/B",.T.,.T.,.T.
  32. *DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "W/R,R/W","R/W","+W/N", ;
  33. *                    "W/R,+GR/R","+W*/R",.F.,.F.,.F.
  34. *DO _d_rpt WITH "Y o u r   T i t l e   o r   C o r p o r a t e   N a m e" , "N/BG,W/N","N/W","+GR/N", ;
  35. *                    "N/BG,+W/BG","+R*/BG",.T.,.T.,.T.
  36.  
  37.  
  38. @ 10,25 SAY " Your Program Continues Execution "
  39. @ 15,0  SAY ""
  40.  
  41. WAIT
  42. QUIT
  43.